#!/usr/bin/perl

# 该程序是一个模拟程序，用来监控Linux的/， /opt,/var，/home四个目录的磁盘使用情况。

@dfresult=`/bin/df -B 1`;

$result="";
foreach $files(@dfresult){
	next if($files=~/^Filesystem/);
	my @fields=split(/\s+/,$files);
	$result=$result.",$fields[5]=$fields[2]/$fields[1]";
}
$result=~s/^,//g;
print "$result\n";
